use Graph;
$g = Graph->new;
for(1..10)
{$g->add_vertex($_);}
$g->add_edge(1 ,10);
print $g;
